function TickCount : longint;

Returns the ticks in 1/60 of a second.

Also see:  GetTime